VERSION 5.00
Object = "{BAF3C5D8-3146-4E15-8FC5-39B976B3D77E}#1.0#0"; "ComUnionComponent.tlb"
Begin VB.Form frmComUnionMenuTab 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   0  'None
   Caption         =   "Menu Tab"
   ClientHeight    =   375
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   9795
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   375
   ScaleWidth      =   9795
   ShowInTaskbar   =   0   'False
   Tag             =   "~"
   Begin ComUnionComponentCtl.MenuTab MenuTab1 
      Height          =   390
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9795
      Object.Visible         =   "True"
      Enabled         =   "True"
      ForegroundColor =   "-2147483630"
      BackgroundColor =   "16243138"
      TabAutoHideSystemBox=   "True"
      ShowTabCloseButton=   "False"
      BackColor       =   "194, 217, 247"
      Font            =   "Tahoma, 8.25pt"
      ForeColor       =   "ControlText"
      Location        =   "0, 0"
      Name            =   "MenuTab"
      Size            =   "653, 26"
      Object.TabIndex        =   "0"
   End
End
Attribute VB_Name = "frmComUnionMenuTab"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()

    Top = 0
    Left = FormPosLeft
    'If Width < FormWidth Then Width = FormWidth
    Width = FormWidth
    MenuTab1.Width = FormWidth
    
End Sub


Private Sub MenuTab1_SelectedTabChanged()

    For Each TempObj In Forms
    
        If TempObj.Name = MenuTab1.FormToOpen Then
            
            TempObj.Show
            Set FrmName = TempObj
        Else
            
            If TempObj.Tag <> "~" Then
                TempObj.Hide
            End If
        End If
    
    Next
End Sub
